0 REM"[160][160][212][200][201][211][160][208][210][207][199][210][193][205][160][196][201][211][208][204][193][217][211][160][193][160][204][207][195][203][197][196][160][204][201][206][197][160][160][160]"
2 GOSUB60100:CLR:POKE53280,2:PRINT"[147]"
3 D1$="....................[211][195][210][207][204][204][201][206][199]......."
4 D2$="...................................."
7 POKE251,2:REM SET UP COLOR OF TEXT, POKE WITH 0-8
9 FORI=828TO840:READX:POKEI,X:NEXT:FORI= 841TO 861:READX:POKEI,X:NEXT
10 DATA120,169,73,141,20,3,169,3,141,21,3,88,96,160
11 DATA0,185,7,8,153,0,4,165,251,153,0,216,200,192,40,208,240,76,49,234
20 SYS828:PRINT"[147]   [212]HE FIRST LINE OF THE SCREEN IS"
22 PRINT"LOCKED WHICH WILL PREVENT SCROLLING"
24 PRINT"FROM ERASING IT. [194]UT, SINCE THIS IS"
25 PRINT"WEDGED IN THE [201][210][209] VECTOR, IT FLICKERS"
26 PRINT"QUITE A BIT ..."
27 PRINT"   [208]RESS [211][208][193][195][197] TO SCROLL DUMMY TEXT.":POKE198,.
28 GETA$:IFA$<>" "THEN28
30 PRINT"[147]"
32 FORA=1TO80:PRINTD1$D2$;:NEXT
34 PRINT"[147]    [193]NOTHER WAY TO DO THIS IS TO USE"
36 PRINT"THE 64'S BUILT-IN SCROLL ROUTINES. [201]T"
38 PRINT"DOES THE SAME THING, AND ALLOWS YOU TO"
40 PRINT"LEAVE ANY NUMBER OF LINES AT THE TOP"
42 PRINT"OR BOTTOM OF THE SCREEN. [201]N ORDER TO"
44 PRINT"USE THEM, YOU'LL NEED TO DISABLE"
46 PRINT"[198][193][211][212][204][207][193][196] (IF IT'S INSTALLED) AND COPY"
48 PRINT"[194][193][211][201][195] AND [203][197][210][206][193][204] [210][207][205] TO THE [210][193][205] THAT"
50 PRINT"LIES BENEATH EACH. [212]HEN, WHEN YOU [208][207][203][197]"
52 PRINT"THE NUMBER OF LINES YOU WANT TO STAY"
54 PRINT"FIXED AT THE TOP OF THE SCREEN, PLUS 1,"
56 PRINT"IN ADDRESS 59639 THEY WON'T SCROLL --"
58 PRINT"AND THERE'S NO FLICKER, EITHER!"
60 PRINT"   [208]RESS [211][208][193][195][197] TO SCROLL DUMMY TEXT.":POKE198,.
62 GETA$:IFA$<>" "THEN62
64 SYS65418:PRINT"[147]":GOSUB1000
65 PRINT"[147]   [212]HISTEXTWILLNOTSCROLLOFFTHESCREEN."
66 FORA=1TO80:PRINTD1$D2$;:NEXT:PRINT""
68 POKE1,55:PRINT"     [212]O SET THINGS BACK TO NORMAL,"
70 PRINT"   [208][207][203][197] 1,55. [198]OR A DESCRIPTION OF HOW"
72 PRINT"   TO USE THE [210][207][205] ROUTINES, SEE LINES"
74 PRINT"   1000 - 1110 OF THIS PROGRAM."
76 PRINT"[208]RESS [193][146] TO SEE DEMO AGAIN; [210][197][212][213][210][206][146] TO"
78 PRINT"QUIT."
80 A=PEEK(197):IFA=10THEN20
82 IFA=1THEN60000
84 GOTO80
999 STOP
1000 POKE770,131:POKE771,164:REM             DISABLE FASTLOAD
1010 POKE88,.:POKE89,192 :REM COPIES
1020 POKE90,.:POKE91,192 :REM BASIC TO
1030 POKE781,33:POKE782,.:REM RAM
1040 SYS41964:REM ACTUALLY DOES THE                       COPYING OF BYTES
1050 POKE88,254:POKE89,255:REM COPIES
1060 POKE90,254:POKE91,255:REM KERNAL
1070 POKE781,33:POKE782,. :REM TO RAM
1080 SYS41964:REM ACTUALLY DOES THE                       COPYING OF BYTES
1090 POKE59639,7:REM DON'T SCROLL THE                  ^     TOP 8 LINES
1091 REM THE 7 ^ MEANS 7 + 1 (8) LINES           WILL NOT SCROLL ON TOP ...
1100 POKE1,53:REM SWITCH IN THE NEW                       SCROLL ROUTINE
1110 RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 PRINT"[147]";:IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60099 STOP
60100 SYS65418:POKE53280,10:POKE53281,1
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"[144]          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60155 PRINT"                              [146]"
60160 PRINT"             [204]INE [204]OCKER      [152] [146]"
60165 PRINT"                              [152] [146]"
60170 PRINT"         [194]Y [196]ONALD [200]. [199]RAHAM  [152] [146]"
60175 PRINT"                              [152] [146]"
60180 PRINT"           ([195])OPYRIGHT 1987   [152] [146]"
60185 PRINT"                              [152] [146]"
60187 PRINT"        [152]                       [146]"
60190 PRINT"       [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
60193 GETA$:IFA$<>" "THEN60193
60197 RETURN